Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/vidlibp/vidlib.frm

Text File | 1995-05-07 | 14KB | 488 lines

VERSION 2.00
Begin Form VidLib
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Video Library"
   ClientHeight    =   3000
   ClientLeft      =   2775
   ClientTop       =   1770
   ClientWidth     =   3345
   Height          =   3690
   HelpContextID   =   1
   Icon            =   VIDLIB.FRX:0000
   KeyPreview      =   -1  'True
   Left            =   2715
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   3345
   Top             =   1140
   Width           =   3465
   Begin PictureBox rptPrint
      Height          =   480
      Left            =   2925
      ScaleHeight     =   450
      ScaleWidth      =   1170
      TabIndex        =   7
      Top             =   0
      Width           =   1200
   End
   Begin PictureBox dlgOpen
      Height          =   480
      Left            =   0
      ScaleHeight     =   450
      ScaleWidth      =   1170
      TabIndex        =   8
      Top             =   0
      Width           =   1200
   End
   Begin CommandButton cmdHelp
      Caption         =   "He&lp"
      Height          =   540
      HelpContextID   =   400
      Left            =   1710
      TabIndex        =   4
      Top             =   1500
      Width           =   1230
   End
   Begin CommandButton cmdExit
      Cancel          =   -1  'True
      Caption         =   "E&xit"
      Height          =   540
      HelpContextID   =   100
      Left            =   1710
      TabIndex        =   5
      Top             =   2175
      Width           =   1230
   End
   Begin CommandButton cmdPreferences
      Caption         =   "P&references"
      Height          =   540
      HelpContextID   =   300
      Left            =   1710
      TabIndex        =   3
      Top             =   825
      Width           =   1230
   End
   Begin CommandButton cmdRepair
      Caption         =   "Rep&air"
      Height          =   540
      HelpContextID   =   100
      Left            =   270
      TabIndex        =   2
      Top             =   2175
      Width           =   1230
   End
   Begin CommandButton cmdPrint
      Caption         =   "&Print"
      Height          =   540
      HelpContextID   =   100
      Left            =   270
      TabIndex        =   1
      Top             =   1500
      Width           =   1230
   End
   Begin CommandButton cmdMaintain
      Caption         =   "&Maintain"
      Default         =   -1  'True
      Height          =   540
      HelpContextID   =   200
      Left            =   270
      TabIndex        =   0
      Top             =   825
      Width           =   1230
   End
   Begin Label lblTitle
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Video Library"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   435
      Left            =   450
      TabIndex        =   6
      Top             =   225
      Width           =   2340
   End
   Begin Menu mnuFile
      Caption         =   "&File"
      HelpContextID   =   100
      Begin Menu mnuFileSelect
         Caption         =   "&Select"
         HelpContextID   =   100
         Shortcut        =   +{F2}
      End
      Begin Menu mnuFileCopy
         Caption         =   "&Copy"
         HelpContextID   =   100
         Shortcut        =   ^{F2}
      End
      Begin Menu mnuFileRepair
         Caption         =   "&Repair"
         HelpContextID   =   100
      End
      Begin Menu mnuFileBar1
         Caption         =   "-"
      End
      Begin Menu mnuFilePrint
         Caption         =   "&Print"
         HelpContextID   =   100
      End
      Begin Menu mnuFileBar2
         Caption         =   "-"
      End
      Begin Menu mnuFileExit
         Caption         =   "E&xit"
         HelpContextID   =   100
      End
   End
   Begin Menu mnuEdit
      Caption         =   "&Edit"
      HelpContextID   =   200
      Begin Menu mnuEditGenre
         Caption         =   "&Genre"
         HelpContextID   =   200
         Shortcut        =   {F3}
      End
      Begin Menu mnuEditRating
         Caption         =   "&Rating"
         HelpContextID   =   200
         Shortcut        =   {F4}
      End
      Begin Menu mnuEditVideo
         Caption         =   "&Video"
         HelpContextID   =   200
      End
   End
   Begin Menu mnuOptions
      Caption         =   "&Options"
      HelpContextID   =   300
      Begin Menu mnuOptionsPreferences
         Caption         =   "&Preferences"
         HelpContextID   =   300
         Shortcut        =   {F5}
      End
   End
   Begin Menu mnuHelp
      Caption         =   "&Help"
      HelpContextID   =   400
      Begin Menu mnuHelpContents
         Caption         =   "&Contents"
         HelpContextID   =   400
      End
      Begin Menu mnuHelpMain
         Caption         =   "&Main"
         HelpContextID   =   400
      End
      Begin Menu mnuHelpSearch
         Caption         =   "&Search"
         HelpContextID   =   400
         Shortcut        =   +{F1}
      End
      Begin Menu mnuHelpUsing
         Caption         =   "&Using Help"
         HelpContextID   =   400
      End
      Begin Menu mnuHelpAuthor
         Caption         =   "Au&thor"
         HelpContextID   =   400
         Shortcut        =   +^{F1}
      End
      Begin Menu mnuHelpBar1
         Caption         =   "-"
      End
      Begin Menu mnuHelpAbout
         Caption         =   "&About"
         HelpContextID   =   400
         Shortcut        =   ^{F1}
      End
   End
End

' Subsystem: Main
' Module:    VidLib.Frm
' Date:      01/02/94
' Author:    Richard Stauch
' Notes:
' This is the initial form the user sees when the program begins.

Option Explicit
DefInt A-Z

Sub cmdExit_Click ()
' Call the Exit routine from the File menu.
  mnuFileExit_Click
End Sub

Sub cmdHelp_Click ()
' Call the Main routine from the Help menu.
  mnuHelpContents_Click
End Sub

Sub cmdMaintain_Click ()
' Call the Video routine from the Edit menu.
  mnuEditVideo_Click
End Sub

Sub cmdPreferences_Click ()
' Call the Preferences routine from the Options menu.
  mnuOptionsPreferences_Click
End Sub

Sub cmdPrint_Click ()
' Call the Print routine from the File menu.
  mnuFilePrint_Click
End Sub

Sub cmdRepair_Click ()
' Call the Repair routine from the File menu.
  mnuFileRepair_Click
End Sub

Sub Form_Load ()
' Load the initial Video Library form.
Dim INIFile As Integer  ' Pointer to Information file.
Dim I As Integer        ' Length of Windows directory string.
Dim TempStr As String   ' Temp for Information file data.
Dim WinDir As String    ' Windows directory, where INI file is.
' Set copy options.
  GenreCopy% = True
  RatingCopy% = True
  VideoCopy% = True
  ReplaceData% = True
' Set preference defaults.
  DefaultPath$ = CurDir$
  DefaultName$ = "VidLib.MDB"
  DefaultReport$ = "Short"
  DefaultOutput$ = "Window"
' If there's a problem with the INI file, these are the defaults.
  On Error GoTo NormalDefault
' Prepare variable space for the DLL routine.
  WinDir$ = String(255, 0)
' Get the Windows program directory.
  I% = GetWindowsDirectory(ByVal WinDir$, Len(WinDir$))
' The return variable I% has the length of the string in
' WinDir$. The rest of it's prepared length is wasted.
  ChDir Left$(WinDir$, I%)
' Set the Help File name.
  If Right$(CurDir$, 1) = "\" Then
    HelpName$ = CurDir$ & "VidLib.HLP" & Chr$(0)
  Else
    HelpName$ = CurDir$ & "\VidLib.HLP" & Chr$(0)
  End If
' Set the Application help file name.
  App.HelpFile = HelpName$
' Set the dialog box help file name.
  dlgOpen.HelpFile = HelpName$
' Now, open the INI file for input only.
  INIFile